20300		COMMON /NU/NUMQ(44),RNUMS(327)
20400		DATA
20800	     1 NUMQ/1,11,15,23,33,38,47,57,62,79, 89,95,108,117,125,132,138
20900	     1,150,157,164,171,177,181,187,1,192,200,212,221,234,239,246
21000	     1,250,256,261,266,  271,282,285,293,298,307,316,321/
21100	      DATA (RNUMS(K),K=1,131)/10.0,1003.107, 6.102, 6.01, 3.015,
21200	     1 104.015, 107.01,107.102, 104.107, 3.107,
21300	     1 14.0, 1107.011, 103.015, 103.107, 22.0,
21400	     1 1106.011, 102.015, 3.015, 7.011, 7.005, 107.107, 7.107, 32.0,
21500	     1 1107.015, 7.015, 101.007, 3.007, 7.003, 7.102, 3.107, 103.107,
21600	     1 107.103, 37.0, 1007.102, 107.102, 2.015, 2.107, 46.0, 1107.107,
21700	     1 4.103, 7.0, 7.004, 2.006, 107.004, 107.015, 7.015, 56.0,
21800	     1 1004.015, 107.0, 107.103, 103.107, 4.107, 7.103, 7.0, 3.003,
21900	     1 104.003, 61.0, 1107.011, 107.015, 7.015, 107.107, 78.0, 1003.004,
22000	     1 7.0, 7.103, 4.107, 104.107, 107.103, 107.0, 103.004, 3.004,
22100	     1 6.008, 6.012, 2.015, 102.015, 106.012, 106.008, 103.004,
22200	     1 88.0, 1104.107, 7.008, 7.011, 4.015, 104.015, 107.011, 107.008,
22300	     1 103.005, 4.005, 94.0, 1106.107, 0.015,6.107,1004.101,104.101,
22400	     1 107.0, 1106.107, 106.015, 3.015, 6.012, 6.007, 3.004, 1106.004,
22500	     1 2.004, 6.001, 6.104, 3.107, 106.107, 116.0, 1006.104, 3.107,
22600	     1 103.107, 106.104, 106.011, 103.015, 3.015, 6.011, 124.0,
22700	     1 1106.107, 106.015, 3.015, 6.011, 6.103, 3.107, 106.107,
22800	     1 131.0, 1006.107, 106.107, 106.015, 6.015, 1003.005, 106.005/
22900	C   THE NEXT IS FOR 'F' TO 'P'
23000	C   1 NUM NOT NEEDED IN 'G'  ALSO IN RNOTE (1/2 NOTE).
23100	      DATA (RNUMS(K),K=132,199)/
23200	     1 137.0, 1106.107, 106.015, 6.015, 1003.005, 106.005, 149.0, 
23300	     1 1001.102, 6.102, 6.104, 6.104, 3.107, 103.107, 106.104, 
23400	     1 106.011, 103.015, 3.015, 6.011, 156.0, 1106.107, 106.015,
23500	     1 1006.015, 6.107, 1006.005, 106.005, 163.0, 1106.107, 0.107,
23600	     1 1103.107, 103.015, 1106.015, 0.015,
23700	     1 170.0, 1110.102, 110.105, 108.107, 103.107, 101.105, 101.015, 
23800	     1 176.0, 1106.107, 106.015, 1006.015, 106.005, 6.107, 180.0,
23900	     1 1006.107, 106.107, 106.015, 186.0, 1106.107, 106.015, 1.004,
24000	     1 8.015, 8.107, 191.0, 1106.107, 106.015, 6.107, 6.015, 199.0
24100	     1, 1106.107, 106.015, 3.015, 6.012, 6.007, 3.004, 106.004/ 
24200	C   'Q' TO ')'
24300	      DATA(RNUMS(K),K=200,327)/
24400	     1 211.0, 1003.107, 6.102, 6.01, 3.015, 103.015, 106.01, 106.102,
24500	     1 103.107, 3.107, 1001.001, 7.108, 220.0, 1106.107, 106.015,
24600	     1 3.015, 6.012, 6.007, 3.004, 106.004, 6.107, 233.0, 1106.104,
24700	     1 103.107, 3.107, 6.104, 6.001, 3.004, 103.004, 106.007, 106.011,
24800	     1 103.015, 3.015, 6.01, 238.0, 1106.015, 7.015, 1000.015, 0.107,
24900	     1 245.0, 1106.015, 106.104, 103.107, 3.107, 6.104, 6.015, 249.0,
25000	     1 1106.015, 0.107, 6.015, 255.0, 1106.015, 103.107, 1.005, 5.107,
25100	     1 8.015, 260.0, 1106.015, 6.107, 1106.107, 6.015, 265.0, 1106.015,
25200	     1 0.003, 1106.107, 6.015, 270.0, 1106.015, 6.015, 106.107, 6.107,
25300	     1 281.0, 1105.102, 105.105,103.105,104.102,104.105,105.102,103.102,
25400	     1103.108, 106.112, 1106.112, 284., 1110.004, 2.004, 292., 1105.102,
25500	     1 105.105,104.102,104.105,103.102,103.105,105.102,297.0,1110.008,
25600	     1 2.008, 1110.001, 2.001, 306.0, 1101.015, 103.013, 105.010,
25700	     1 106.006,106.002,105.102,103.105,101.107,315.0,1107.015,105.013,
25800	     1103.01 ,102.006,102.002,103.102,105.105,107.107,320.0,1110.004,
25900	     1 2.004, 1104.01, 104.102,  327.0,1110.004, 2.004, 1101.009,
26000	     1 107.101, 1101.101, 107.009/
26100	C  3RD ITEM IN 19400 NOT NEEDED 12/73
26200	
26300	C  1-10=NUMS 0-9, 11-36=ALPHA, 37-42=SIGNS